unit uScene;

interface

type
  TMouseBtn = (mbLeft, mbRight, mbMiddle, mbDblLeft);

  TScene = class(TObject)
    procedure Timer; virtual; abstract;
    procedure Render; virtual; abstract;
    procedure KeyDown(var Key: Word); virtual; abstract;
    procedure MouseMove(X, Y: Integer); virtual; abstract;
    procedure MouseUp(Button: TMouseBtn); virtual; abstract;
    procedure MouseDn(Button: TMouseBtn); virtual; abstract;
  end;

implementation

end.
